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-- file ErrorDefs.Mesa 

-- last modified by Satterthwaite, July 14. 1978 3:36 PM 

DIRECTORY 

SymDefs: FROM "symdefs", 
TreeDefs: FROM "treedefs"; 

ErrorDefs: DEFINITIONS - 
BEGIN 
OPEN SymDefs; 

ErrorCode: TYPE « { 

-- general purpose errors (no parameters) 
compilerError, 
unimplemented, 
other, 

-- errors with no parameters 
bodyEntries, 
bodyType. 
catchLabel , 
descriptor, 
el ision. 
exit, 

f ieldSize. 
illDef inedReturn, 
inl ineType, 
interfaceEntries, 
keys, 
long. 

misplacedCatch. 
misplacedEntry. 
misplacedMonitorRef , 
misplacedResume, 
misplacedReturn. 
misplacedStop, 
missingBinding. 
noAccess, 
nonOrderedType. 
nonTypeCons, 
nonVoidStmt. 
instLength. 
relative, 
staticNesting. 
stringLength. 
subrangeBounds. 
subrangeNesting. 
voidExpr , 

-- errors mapping hash to sei parameters 
unknownid , 
unknownField, 

-- errors with hash parameters 
ambiguousid, 
duplicateld. 
unknownTag. 
duplicateTag. 
unknownVariant. 
unknownKey, 
dupl icateKey , 
omittedKey , 
openid, 
fileName, 
f ileVersion, 
moduleld, 

-- errors with sei parameters 
addressOverf low. 
circularType, 
circularValue, 
forwardRef , 
internalCall , 
missingBase, 
missingLock, 
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nonDef inition, 

nonTagType, 

nonTypeld. 

notlmported. 

recordGap, 

typeLength , 

varExport , 

-- errors with tree parameters 
controlld, 
duplicateLabel , 
exportClash, 
mixed Representation, 
noAppI ication, 
nonAddressable, 
nonConstant, 
nonLHS, 

nonVariantLabel , 
noTarget, 
notPortable, 
noVariants, 
relationType, 
sizeClash , 
spuriousBinding, 
typeClash, 
unknownLabel , 

-- errors with numeric parameters 
listShort, 
1 istLong, 

-- warnings with no parameters 
attrClash, 
pointerlnit, 

-- warnings with sei parameters 
privateExport, 
unusedExport, 
unusedid, 
unusedlmport, 

-- warnings with tree parameters 
unsignedCompare 
}: 

error: PROCEDURE [code: ErrorCode]; 

errorhti: PROCEDURE [code: ErrorCode, hti: HTIndex]; 

errorsei: PROCEDURE [code: ErrorCode, sei: ISEIndex]; 

errormap: PROCEDURE [code: ErrorCode, hti: HTIndex] RETURNS [ISEIndex]; 

errortree: PROCEDURE [code: ErrorCode, t: TreeDef s.TreeLink]; 

errorstring: PROCEDURE [code: ErrorCode, s: STRING]; 

errorn: PROCEDURE [code: ErrorCode. n: INTEGER]; 

Warning: PROCEDURE [code: ErrorCode]; 

WarningSei: PROCEDURE [code: ErrorCode, sei: ISEIndex]; 

WarningTree: PROCEDURE [code: ErrorCode, t: TreeDefs .TreeLink]; 

END. 



